Public Class Bolsas
    Dim ADBol As New ADCono.Bolsas

    Public Function GenerarBolsa(ByVal CodPal, ByVal CodIOT, ByVal Fec, ByVal Can)
        Dim DS As DataSet
        DS = ADBol.GenerarBolsa(CodPal, CodIOT, Fec, Can)
        Return DS
    End Function

    Public Function ObtenerBolsas(ByVal CodPal, Optional ByVal EstDS = "", Optional ByVal EstRS = "", _
    Optional ByVal EstPN = "", Optional ByVal EstPR = "")
        Dim DS As DataSet
        DS = ADBol.ObtenerBolsas(CodPal, EstDS, EstRS, EstPN, EstPR)
        Return DS
    End Function
End Class